<%@codepage=1255%>
פרטים נוספים
<%
dim pro_idx, col,Vis_id
pro_idx=request.form("pro_id")
col = request.form("color_id")
if col=nil then col="0"
Vis_id=session("visitor_id")
'if Vis_id=nil then response.redirect "default.asp"
dim c
set c=server.createobject("adodb.connection")
c.open DSN_NAME
set r=server.createobject("adodb.recordset")
sql="select * from basket where visitor_id=" & session("visitor_id") & " and product_id=" & pro_idx
r.open sql, c, 3
if r.bof and r.eof then
c.execute "INSERT INTO basket(product_id, visitor_id,color_id) SELECT " & pro_idx & ", " & session("visitor_id") & ", " & col
else
r.close
sql="update basket set quantity=quantity+1 "
sql=sql & "where product_id=" & pro_idx & " and visitor_id=" & session("visitor_id")
r.open sql, c, 3
end if
set r=nothing
c.close
set c=nothing
%>
<%
'response.redirect "Basketprev.asp"
%>